home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 47 / MOBICLIC 47.ISO / mac / DATA / COMMUNS / MENUBD.DIR / 00041_Script_RETOUR_BOUCLE < prev    next >
Text File  |  2002-07-23  |  771b  |  35 lines
  1. global fermeMenuBD, ouvreMenuBD
  2. global gL_bornes_Ekerre_R
  3. ------------------------------
  4. on exitFrame
  5.   if fermeMenuBD=1 then
  6.     go the frame
  7.     fermerMenu
  8.   else
  9.     u = the mouseH
  10.     
  11.     case(u < gL_bornes_Ekerre_R[1]) of
  12.       1:
  13.         go "1"
  14.       0:
  15.         case(u < gL_bornes_Ekerre_R[2]) of
  16.           1:
  17.             go "2"
  18.           0:
  19.             
  20.             case(u < gL_bornes_Ekerre_R[3]) of
  21.               1:
  22.                 go "3"
  23.               0:
  24.                 case(u < gL_bornes_Ekerre_R[4]) of
  25.                   1:
  26.                     go "4"
  27.                   0:
  28.                     go "1"
  29.                 end case
  30.             end case    
  31.         end case
  32.     end case
  33.   end if
  34. end
  35. -------------------------------